home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 045a / btvb.zip / BTRIEVE.BAS next >
BASIC Source File  |  1991-07-23  |  789b  |  33 lines
  1. Global Const BOPEN = 0
  2. Global Const BINSERT = 2
  3. Global Const BUPDATE = 3
  4. Global Const BNEXT = 6
  5. Global Const BPREVIOUS = 7
  6. Global Const BGREATER = 9
  7. Global Const BFIRST = 12
  8.  
  9. Type POSBLK
  10.     PBELEMENTS As String * 128
  11. End Type
  12.  
  13. Type KEYBUFFER
  14.     FILENAME As String * 128
  15. End Type
  16.  
  17. Type BUFFER
  18.     BR As Integer
  19.     NAMECODE As String * 6
  20.     BUFFER As String * 576
  21. End Type
  22.  
  23.  
  24. Declare Function WBTRVINIT Lib "WBTRCALL.DLL" (INIT As Any) As Integer
  25. Declare Function WBTRVSTOP Lib "WBTRCALL.DLL" () As Integer
  26. Declare Function BTRCALL Lib "WBTRCALL.DLL" (ByVal OP%, PB As POSBLK, DB As Any, DL As Integer, KB As Any, ByVal KL%, ByVal KN%) As Integer
  27.  
  28. Global INIT As String * 64
  29. Global DATABUFF As BUFFER
  30. Global POSBLOCK As POSBLK
  31. Global KEYBUFF As KEYBUFFER
  32.  
  33.